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The SPERRY UNIVAC Operating System/3 (OS/3) COBOL language is 
fully described in the OS/3 Extended COBOL supplementary reference, 
UP-8059 {current version). 


SUMMARY NOTATION: 


Key words (that is, words that result in action by the compiler) are capitalized 
and underscored. 


Optionat words (that is, words included for readability only) are capitalized, 
but not underscored. 


Brackets { ] enclose words, phrases, or clauses that may be omitted if their 
functions are not required. 


Braces { }indicate a mandatory choice of various forms or functions. 


Ellipsis . . . indicates optional repetition of elements enclosed in the preceding 
pair of brackets or braces. 


Lowercase words represent generic terms that must be supplied by the user. 
Periods must be used where shown and must also appear at the end of each 


Paragraph. Statements which do not contain periods on the reference card must 
be followed by a period when used at the end of a paragraph. 


RULES AND SUGGESTIONS FOR EFFICIENCY: 


1, 


Use legal abbreviations for reserved words to reduce compilation time, that is, 
PIC instead of PICTURE. 


Use relational operators instead of relational clauses, 

Avoid needless qualification and/or subscripting. 

With ADD, SUBTRACT, IF, and MOVE: 

a use same size sending and receiving fields; 

. align decimal positions of sending and receiving fields. 


Use indexing instead of subscripting whenever possible. 


FIGURATIVE CONSTANTS: 


zero| © | = Oor 0's DISPLAY mode = code FO (EBCDIC) or 
30 {ASCII} 
COMPUTATIONAL mode = binary 0 
QUOTE[S] code 7D (EBCDIC) or 27 (ASCII); 
apostrophe is the generated character 
HIGH-VALUE[S} code FF (EBCDIC) or 7F (ASCII) 
LOW-VALUE(S] code 00 {lowest value in collating sequence} 


ALL literal = a sequence of any nonnumeric literal or figurative constant 


SPACE[S] = blank character(s} 


code 40 (EBCDIC) or 20 (ASCII) 








IDENTIFICATION DIVISION 
IOENTIFICATION DIVISION. 
PROGRAM-ID. program-name. 
{AUTHOR. [comment-entry.] . . .] 
(INSTALLATION. [comment-enty.] .. .] 


(DATE-WRITTEN.[comment-entry.} .. .] 


{DATE-COMPILED. (comment-entry.] . . .] 





(SECURITY, [comment-entry.] .. .} 
[REMARKS. [comment-entry.] . . .] 


ENVIRONMENT DIVISION 
ENVIRONMENT DIVISION, 
CONFIGURATION SECTION. 


UNIVAC-9025. 
SOURCE-COMPUTER. < UNIVAC-9030. 


UNIVAC-9040, 
UNIVAC-9025 
OBJECT-COMPUTER. | panacson . MEMORY SIZE integer 
UNIVAC-9040 
CHARACTERS 
MODULES [, SEGMENT-LIMIT IS priority-number) . 
WORDS Se 


SPECIAL-NAMES. 

(CURRENCY SIGN IS literal] 
[; DECIMAL-POINT IS COMMA] 

; SYSCOM IS mnemonic-name-1] 
: SYSDATE |S mnemonic-name-2] 
{; SYSTIME IS mnemonic-name-3] 
5 SYSCONSOLE {S$ mnemonic-name-4] 
[; SYSCHAN-t IS mnemonic-name-5) 
(; SYSLST IS mnemonic-name-6} 
> SYSERR[-m 

ON STATUS IS condition-name-3 [, OFF STATUS IS condition-name-4] 
ce STATUS IS condition-name-4 |, ON STATUS IS condition-name-3} ; ia 





; SYSSWCH [-n] 


{S mnemonic-name-7 [, ON STATUS IS condition-name-5 
L, OFF STATUS IS condition-name-6] ] 


1S mnemonic-name-7 [, QFF STATUS IS condition-name-6 
(, ON STATUS IS condition-name-5] ] 


ON STATUS IS condition-name-5 

( OFF STATUS IS condition-name-6) 
QEF STATUS IS condition-name-6 

(. QN STATUS IS condition-name-5] 


[ SYSIN IS mnemonic-name-8} 
[; SYSIN-96 IS mnemonic-name-9] 

L SYSIN-128 IS mnemonic-name-10] 

I; SYSLOG 1S mnemonic-name-11] . 
INPUT-OUTPUT SECTION 
FILE-CONTROL: {SELECT [OPTIONAL] file-name 


ASSIGN TO [external-name] [integer-?] _implementor-name-1 


REEL 
OR implementor-name-2} [ron MULTIPLE sett © 








UNIT 


. es integer-2 AREA 
[: nesenve | NO bALTERNATE [pees 


LIMIT tS data-name-1 data-name-2 
: (ee “LIMITS SARE Le tier \ ny { datena \ 


f faxaname St THRU § data-name-4t 
[ \literal-3 lit” \iteral-4 te eae 








ENVIRONMENT DIVISION (CONT) 


ACCESS MODE IS 





EXTENDED 
RANDOM [; PROCESSING MODE IS SEQUENTIAL] 
SEQUENTIAL <= = 


SEQUENTIAL 


{agree KEY IS data-name-5 iy 
TREEATIVE KEY. IS data-name‘6 { 


!-~O—CONTROL. 


SYMBOLIC KEY 1S data-name-7] 
RECORD KEY {S data-name-8}.} . 


INDEXED 
; ORGANIZATION IS ¢ RELATIVE 
C 
l 
[ RERUN ON external-name EVERY integer-1 RECORDS OF file-name-1 
(, fite-name-2).. .] sr 


L; sane | RECORD | AREA FOR file-name-3 {, file-name-4}...] ... 





[; MULTIPLE FILE TAPE CONTAINS file-name-5} 
{POSITION integer-2} [ file-name-6{POSITION integer-3] J. . 


[; APPLY VERIFY ON file-name-8 [, file-name-n}...)... 


: { file-name-9 [file-name-10]...| 
[: sere APPLY BLOCK-COUNT ON ; ) TAPES “4 aes 


+(; APPLY MASTER-INDEX ON file-name-11 [, file-name-12] ...] ... 





[; APPLY CYLINDER-INDEX AREA OF integer-5 INDICES ON file-name-13 


{, file-name-14]...J... 
[; APPLY CYLINDER-OVERFLOW AREA OF integer-6 
@ PERCENT ON file-name-15 (, file-name-16].. .]... 
+L; APPLY EXTENDED-INSERTION AREA ON file-name-17 
[, file-name-t8} ...)... 
{; APPLY FILE-PREPARATION ON file-name-19 [, file-name-20)...)... 


[ ; APPLY ASCII” [wr BUFFER-OFFSET 


FOR BLOCK-LENGTH-CHECK | : 
{oF integer CHARACTERS +] ON file-name-21 [, file-name-22}. . i 


DATA DIVISION 
DATA DIVISION. 





FILE SECTION. 
FO filename 


[ : BLOCK CONTAINS [integer-1 TO} integer-2 (ou | 


RECORDS 


£ RECORD CONTAINS [integer-3 TO] integer-4 CHARACTERS] 


OMITTED 
| Pavia at 
ager { RECORD : \ STANDARD 
RECORDS ARE data-name-1 [, data-name-2]... 


; RECORDING MODE* IS 


I<ICIMIO 





Accepted for OS/4 and OS/7 compatiblity only. 
“Extension to American National Standard COBOL (1968). 
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DATA DIVISION (CONT) 


data-name-3 
literal-t oa 


: VALUE OF unqualified-data-name IS. { 


; RECORD IS 
[ ; DATA {rconps aney data-name-4 [, data-name-5] .. ‘| : 





SD file-name 


([: RECORD CONTAINS [integer-1 TO] integer-2 CHARACTERS] 


Oo 
: RECORDING MODE" IS } E \ @ 
v 


. RECORD IS 
: OATA | Feconce ane} cetenamet {, data-name-2] ... | , 


DATA DESCRIPTION 


Format 1: 
c 
level number { FILLER \ [; REDEFINES unqualified-data-name-2] 
unqualified-data-name-1 —_—— 


ASCENDING 


OCCURS integer-2 TIMES f DESCENDING 


\ KEY {S data-name-2 


{ data-name-3] ... | fed 


[ INDEXED BY index-name-1 {, index-name-2] .. | 


+ OCCURS [integer-1 TQ] integer-2 TIMES DEPENDING ON data-name-1 


ASCENDING 
DESCENDING 


( INDEXED BY index-name-1 [, index-name-2] ... ] 


. Spice ; 
[: {Be une} 'S character sons @ 


come 
COMPUTATIONAL 
COmP-1° 
COMPUTATIONAL-1* 
COMP-2° 
COMPUTATIONAL-2* 
(USAGE IS] ( COMP.3* 
COMPUTATIONAL-3* 
COMpP-4* 
COMPUTATIONAL-4° 
DISPLAY 
INDEX 


\ KEY IS data-name-2 [, data-name-3] . .. | ; 





1; MAP* IS integer-3, CHARACTERS} 
. J SYNC \ LEFT » S1UST aici 
" USYNCHRONIZEDS | RIGHT JUSTIFIED 


{; VALUE IS literal) [; BLANK WHEN ZERO] 


’ 2, J) LEADING 
\ISIGN Is 1{ EEADING \ SEPARATE CHARACTER | 


ltsien 'S*] TRAILING \ 
Format 2: 
66 unqualified-data-name-1; RENAMES data-name-2 (THRU data-name-3]. @ 
Format 3: 


VALUE IS 


iteral- iteral-2 
VALUES ey literal-1 [THRU literal-2] 


88 condition-name; { 


[hiteral-3 [THRU literat-4] | ae 





“Extension to American National Standard COBOL (1968). 





DATA DIVISION (CONT) 
WORKING-STORAGE SECTION. 


77-tevel-description-entry 
record-description-entry 


LINKAGE SECTION” 
{level-number data-name [descriptive clauses] ].. . 
PROCEDURE DIVISION 
@ PROCEDURE DIVISION. [usinc * unqualified-data-name-1 


[unqualified-data-name-2] . . ‘ 
{DECLARATIVES. 
}section-name SECTION. declarative-sentence. 
}paragraph-name, Jsentence{ = 4. : a Sat 
END DECLARATIVES.] 
} (section-name SECTION. [priority-number] .] 
} paragraph-name. } sentence t. r ft. F a aust 
VERBS AND STATEMENTS (listed alphabetically} 


mnemonic-name 


DATE" 
ACCEPT identifier | FROM } DAY* 
TIME’ 





Format 1: 


identifier-1 [ identifier-2 
apo { isenit } , literal-2 


[, identifier-n [ROUNDED] ) ... 


& (; ON SIZE ERROR imperative-statement] 


Format 2: 


App § identifier-1 { pple [ , identifier-3 
——= \literat-1 Y titeral-2 , literal-3 


GIVING identifier-n [ROUNDED] [; ON SIZE ERROR imperative-statement] 


. .- TO identifier-m [ROUNDED] 





Format 3: 


CORR 


AOD {oR opine identifier-1 TO identifier-2 


[ROUNDED] [; ON SIZE ERROR imperative-statement) 


ALTER procedure-name-1 TO [PROCEED TO} procedure-name-2 
[, procedure-name-3 To (PROCEED TO] procedure-name-4] 


file-name 
id f 
CALL ‘entry-name | USING, ‘ontt'er 
—— ———= } procedure-name 
sort-name 


. REEL LOCK 
CLOSE file-name-1 [ UNIT. Je A cw 1 


REEL LOCK 
@ , file-name-2 [eatr | [wrt mas) 


arithmetic-expression 
COMPUTE identifier-1 [ROUNDED) = ¢ identifier-2 
literal 


|; ON SIZE ERROR smperative-statement} 


"Extension to American National Standard COBOL (1968). 











COPY jibrary-name 


Format 2: 


COPY library-name 





identifier-1 identifier-2 
REPLACING word-1 BY < literal-1 , word-3 BY ¢ literal-2 Seas 


word-2 word-4 
identifier-1\{ , identitier-2 
pisLay} literal-1 if " iteral-2 ] . +. [UPON mnemonic-name} 
Format 1: 
* i fiog- 4 
DIVIDE ea : \ INTO identifier-2 [ROUNDED] 


(; ON SIZE ERROR imperative-statement] 


Format 2: 


literat-2 


DIVIDE a \ INTO { cot GIVING identifier-3 [ROUNDED] 


[; ON SIZE ERROR imperative-statement } 





Format 3: 
DIVIDE tae By tinder | GIVING identifier-3 [ROUNDED] 
(; ON SIZE ERROR imperative-statement) @ 
Format 4: 
DIVIDE aor INTO poke GIVING identifier-3 { ROUNDED] 


REMAINDER identifier-4 [; ON SIZE ERROR imperative-statement] 


Format 6: 
DIVIDE relia { ieneitier:2 \ GIVING identifier-3 (ROUNDED) 
— literat-1 _ literal-2 — ——— 


REMAINDER identifier-4 {; ON SIZE ERROR imperative-statement] 


Format 1: 


ENTER LINKAGE. 


file-name 
identifier 
CALL “entry : 
entry-name} USING pr racer 
sort-name 


ENTER COBOL. 


Format 2: & 


ENTER LINKAGE. 


PROCEDURE DIVISION (CONT) 
Format t: 
| 





ENTRY entry-name [USING {unqualitied-data-name t wtilhs 


ENTER COBOL. 





*Extension to American Nationel Standard COBOL {1968}. 
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PROCEDURE DIVISION (CONT) 


Format 3: 

ENTER LINKAGE. 
EXIT BROGRAM | 
RETURN. 

ENTER COBOL. 


EXAMINE identifier 


ALL 
@ TALLYING ¢ LEADING \ literal-1 [REPLACING BY literal-2] 
UNTIL FIRST 


ALL 
REPLACING ¢ LEADING literal-3 BY literal-4 
(UNTIL) FIRST 


EXIT [PROGRAM] * 

Format 1: 

GO TQ [procedure-name] 

Format 2: 

GO TO procedure-name-1 [, procedure-name-2] .. . , procedure-name-n 
DEPENDING ON identifier 

Format 3: 

GQ TO MORE-LABELS" 


1F condition; [THEN] * § NEXTSENTEN \ 
— — statement-1 


_ f ELSE \ { NEXT seneNce | 
* ) OTHERWISE’ S \ statement-2 


condition may be any of the following: 





s Relation condition 


S {ior GREATER THAN \ 
{NOT} > 
arithmetic- [NOT] LESS THAN arithmetic- 
expression-1 [ {NOT} < expression-2 
identifier-1 ig f LNOT] EQUAL TO identifier-2 
literal-1 [NOT] = literal-2 
EQUALS" 
UNEQUAL" 


EXCEEDS’ 


7 


| 


@ = Class condition 


ALPHABETIC \ 
NUMERIC 


IE identifier IS {NOT} { 
s Condition-name condition as defined by an 88-level entry in the Data Division 
1 [NOT] condition-name 
@ Switch-status condition 


JE [NOT] condition-name 


se Sign condition 


ae . NEGATIVE 
ila { a Fe, SECA DreSHOn \ IS [NOT] ¢ POSITIVE 
identifier ZERO 





*Extension to American National Stendard COBOL (1968). 








PROCEDURE DIVISION (CONT) 


INSERT* record-name [FROM identifier-1] [; INVALID KEY imperative-statement] 





Format 1: 
MOVE i eosindll TO identifier-2 [, identifier-3] .. 
—= literat-1 _ 
Format 2: 
CORR : a 
MOVE \eoareoiie identifier-1 TO identifier-2 & 
Format 1: 
muctipcy 4 entifiert av i gentitier-2 [ROUNDED] 
_ literal-1 _ —_ 


(; ON SIZE ERROR imperative-statement] 


Format 2: 
muttipcy 4 identifier-1 foie! GIVING identifier-3 [ROUNDED} 
—_— literal-? literal-2 —_—_ Se 


(; ON SIZE ERROR imperative-statement] 
NOTE character-string. 


1-0 ( filename} °°” 


; REVERSED \ — 
OPEN INPUT { file-name [ Bevessee NO REWIND ] 


OUTPUT { filename [WITH NO REWIND] \ on 





Format 1: 

PERFORM procedure-name-1 [THRU procedure-name-2] & 
Format 2: 

PERFORM procedure-name-1 [THRU procedure-name-2] aalelonay TIMES 


Format 3: 


PERFORM procedure-name-1 [THRU procedure-name-2] UNTIL condition-1 


Format 4: 


PERFORM procedure-name-1 [THRU procedure-name-2] 





‘ ifier-1 identifier-2 
varying { ent Hate , FROM 2 index-name-2 
———— Lindex-name-1 7 = titeral-2 

BY fieiecs \ UNTIL condition-1 
literal-3 

‘ gs identifier-5 
AFTER erent \ rrow| microm 

index-name-4 J ———)} 

literal-5 


ba 


icentifier:¢: UNTIL condition-2 
literal-6 


dentifier-7 identifier-8 
dee laa ;} £ROM FROM 2 index-name-8 
index-name- literal-8 


5 





[sere 


BY iGantifiers *¥ uwrun UNTIL condition-3 
literat-9 


*Extension to American National Standard COBOL (1968). 
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PROCEDURE DIVISION (CONT) 


AT END 
READ file-name RECORD [INTO identifier} ; { INVALID 2), 


imperative-statement 


RELEASE record-name (FROM identifier] 


RETURN file-name RECORD [INTO identifier] [; AT END imperative-statement] 


& Format 1: 
REWRITE” record-name (FROM identifier] 


Format 2: 


REWRITE record-name [FROM identifier] [; INVALID KEY imperative-statement } 


Format 1: 
SEARCH identifier-1 [VARYING posal \ 
—_ ——— | index-name-1 


{; AT END imperative-statement-1] 


|. WHEN condition-1 sneer 


NEXT SENTENCE 


imperative-statement-3 
NEXT SENTENCE 


[ ; WHEN condition-2 } 


Format 2: 


SEARCH ALL identifier-1 [; AT ENO imperative-statement- 1] 
— — — 


; WHEN condition-1 


& SEEK file-name RECORD 


imperative-statement-2 
NEXT SENTENCE 


| Format 1: 
identifier-3 
identifier-1 , identitier-2 rian 
SET < ‘ndex-name-1 + index-name-2 TO iendatarieeen’3 
index-data-item-1 , index-date-item-2 ti 
iteral-1 
Format 2: 


SET index-name-1 [ P index-name-2 ] oa { DOWN BY \ adanrtifier-t 


UP BY literal-1 


ASCENDING 


T fil 
SQAT file-name-1 on} DESCENDING 


\ KEY {data-name-1} 


ASCENDING 
[: of ON 5 aerate KEY {data-name-2} | aie 


dala PROCEDURE IS section-name-1 [THRU section-name-2} \ 
USING file-name-2 








{QuTbur pROSEDURE PROCEDURE IS section-name-3 (THRY section- neme-4}} 
GIVING file-name-3 


literal 
@ sror {un f 





Format 1: 
identifier-1 , identifier-2 
susraact {ior [iat 


FROM identifier-m [ROUNDED] [, identifier-n [ROUNDED! ] . 
L: ON SIZE ERROR imperative-statement] 


———<——$— 


*Extension to American National Standerd COBOL (1968). 
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PROCEDURE DIVISION (CONT) 


Format 2: 
identifier-1) [ , identifier-2 
sustaact (en t [waa | 
FROM { reali GIVING identifier-n [ROUNDED) 
——= | literal-m —— —-— 


(; ON SIZE ERROR imperative-statement] 


Format 3: @ 


CORR ‘ gs : See 
SUBTRACT A eoReseOnOiNNG \ identifier-1 FROM identifier-2 [ROUNDED) 


[; ON SIZE ERROR imperative-statement]} 








Format 1: 
TRANSFORM” identifier-3 {, identifier-4] .. .-CHARACTERS 
figurative-constant-1 figurative-constant-2 
FROM ¢ identifier-1 TO { identifier-2 
nonnumeric-literal-1 nonnumeric-literal-2 
Format 2: 


TRANSFORM identitier-3 [, identifier-4] .., CHARACTERS 


FROM { seu 0 ence \ 


Format 3: 


TRANSFORM identifier-3 [, identifier-4] ... CHARACTERS 


{ et identifier-5 


Format 1: & 


use { AFTER } sranoano | BEGINNING | | 





——= { BEFORE ENDING 


aia 
r—4 - 
S| im 
| ee | 


file-name-1 [, file-name-2)}. .. 


—~ | 


10 
LABEL PROCEDURE ON \ INPUT 
OUTPUT 


Format 2: 
USE AFTER STANDARD ERROR PROCEDURE ON 


1.0 
INPUT 
OUTPUT 


'-file-name-1 [, file-name-2]... l 


Format 3:* 


USE FOR FORM-OVERFLOW ON fite-name-1 


Format 1: & 


WRITE record-name [F ROM identifier-1] 





AFTER identifier-2 LINES 
{ BEFORE \ ADVANCING ¢ integer LINES 
— | mnemonic-name 


“Extension to American National Standerd COBOL (1968). 





PROCEDURE DIVISION (CONT) 


Format 2: 
WRITE record-name [FROM identifier-1} [;. INVALID KEY imperative-statement] 


DEBUGGING AIDS. 


DEBUGGING AIDS 
{An extension to 1968 American National Standard COBOL): 


SYSLST must be specified on an LFD control card. 


READY TRACE.* 
RESET TRACE.” 


CHANGED ; a 
Syne CHANGED NAMED l Prati \ 
1 NAMED a 5 nonnumeric-literal-1 


{ identifier-2 t 
 nonnumeric-literal-2 | > - 
where: 


CHANGED 
Provides a cotumnar display of nonnumeric literals and identifier values 
that have changed. 


CHANGED NAMED 
Provides a noncolumnar display of nonnumeric literals and identifier 
values that have changed. 


NAMED 


Provides a noncolumnar display of specified identifier values and 
nonnumeric literals. 


Debug® Packet Contro! Card 


1 8 
“DEBUG location 





where: 
location 
Is a section name or a paragraph name. 
RESERVED WORDS 
ACCEPT BY 
ACCESS CALL“ 
ACTUAL CARD-PUNCH* 
ADD CARD-READER* 
ADVANCING CARD-READER-51” 
AFTER CARD-READER-66* 
ALL CHARACTER* 
ALPHABETIC CHARACTERS 
ALTER CHANGED* 
ALTERNATE CLOSE 
AND COBOL 
APPLY * COMMA 
ARE COMP 
AREA COMP.1* 
AREAS comP-2* 
ASCENDING COMP-3* 
ASCII * COMP.4* 

@ ASSIGN COMPUTATIONAL 
AT COMPUTATIONAL-t* 
AUTHOR COMPUTATIONAL.-2* 
BEFORE COMPUTATIONAL-3* 
BEGINNING COMPUTATIONAL-4* 
BLANK COMPUTE 
BLOCK CONFIGURATION 
BLOCK-COUNT * CONTAINS 
BLOCK-LENGTH-CHECK* COPY 
BUFFER-OFFSET* CORR 


*Extension to American National Stendard COBOL (1968). 
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RESERVED WORDS (CONT) 


CORRESPONDING 
CURRENCY 
CYLINDER-INDEX* 
CYLINDER-OVERFLOW" 
DATA 
DATE-COMPILED 
DATE-WRITTEN 
DECIMAL-POINT 
DECLARATIVES 
DEPENDING 
DESCENDING 
DIRECT* 

oisc* 
DISC-8411* 
DISC-8414* 
OISC-8415* 
DISC-8416" 
DISC-8418* 
DISC-8430" 
DISC-8433* 
DISPLAY 
DIVIDE 
DIVISION 
DOWN 

EBCDIC* 

ELSE 

END 

ENDING 

ENTER 

ENTRY * 
ENVIRONMENT 
EQUAL 
EQUALS’ 
ERROR 

EVERY 
EXAMINE 
EXCEEDS’ 
EXHIBIT” 

EXIT 
EXTENDED 
EXTENDED-INSERTION* 
FD 

FILE 
FILE-CONTROL 
FILE-LIMIT 
FILE-LIMITS 
FILE-PREPARATION* 
FILLER 

FIRST 

FOR 
FORM-OVERFLOW* 
FROM 
GENERATE 
GIVING 

tere) 

GREATER 
HIGH-VALUE 
HIGH-VALUES 
1-0 
1-0-CONTROL 

1D 
IDENTIFICATION 
tF 

IN 

INDEX 
INDEXED 
INDICES* 
INITIATE 

INPUT 
INPUT-OUTPUT 
INSERT* 
INSTALLATION 
INTO 

INVALID 

1s 

JUST 


$$ 
*Extansion to American National Standard COBOL (1968). 


0 


JUSTIFIED 
KEY 
LABEL 
LEADING 
LEFT 

LESS 

LINE 
LINES 
LINKAGE* 
LOCK 


LOW-VALUE 
LOW-VALUES 
MAP* 


MASTER-INDEX* 
MEMORY 
MODE 
MODULES 
MORE-LABELS* 
MOVE 
MULTIPLE 
MULTIPLY 
NAMED* 
NEGATIVE 
NEXT 

NO 

NOT 

NOTE 
NUMERIC 
OBJECT-COMPUTER 
OCCURS 

OF 

OFF 

OMITTED 

ON 

OPEN 
OPTIONAL ; 
OR 
ORGANIZATION* 
OTHE RWISE* 
OUK-90-250* 
OUK-90-300* 
OUK-90-400" 
OUK-90-600* 
OUK-90-700* 
OUTPUT 
PERCENT * 
PERFORM 
PIC 

PICTURE 
POSITION 
POSITIVE 
PRINTER * 
PROCEDURE 
PROCEED 
PROCESSING 
PROGRAM* 
PROGRAM.-ID 
QUOTE 
QUOTES 
RANDOM 
READ 
READY * 
RECORD 
RECORDING* 
RECORDS 

REDEFINES 

REEL 

RELATIVE * 

RELEASE 

REMAINDER 

REMARKS 

RENAMES 

REPLACING 

RERUN 

RESERVE 

RESET* 











RESERVED WORDS (CONT) 


RESTRICTED* 
RETURN 
REVERSED 
REWIND 
REWRITE“ 
RIGHT 
ROUNDED 

RUN 

SAME 

so 

SEARCH 
SECTION 
SECURITY 
SEEK 
SEGMENT-LIMIT 
SELECT 
SENTENCE 
SEPARATE 
SEQUENTIAL® 
SET 

SIGN 

SIZE 

SORT 
SOURCE-COMPUTER 
SPACE 

SPACES 
SPECIAL-NAMES 
STANDARD 
STATUS 

STOP 
SUBTRACT 
SYMBOLIC * 
SYNC 
SYNCHRONIZED 
SYSCHAN-1* 
SYSCHAN-2* 


SYSCHAN-3* 
SYSCHAN.4* 
SYSCHAN-5 * 
SYSCHAN-6 * 
SYSCHAN-7° 
SYSCHAN-8 * 
SYSCHAN-9 * 
SYSCHAN.-10* 
SYSCHAN-11* 
SYSCHAN.12* 
SYSCHAN- 13 * 
SYSCHAN-14* 
SYSCHAN-15 * 
SYSCOM * 
SYSCONSOLE * 
SYSDATE * 
SYSERR* 
SYSERR-0* 
SYSERR-1* 
SYSERR-2* 
SYSERR-3* 
SYSERR-4° 
SYSERR-5* 
SYSERR-6* 
SYSERR-7* 
SYSERR-8* 
SYSERR-9° 


SYSERR-10* 
& SYSERR-11* 
SYSERR-12* 
SYSERR-13° 
SYSERR-14* 
SYSERR-15* 
SYSERR-16"* 
SYSERR-17* 
SYSERR-18" 
SYSERR-19* 
SYSER R-20* 


SYSERR-21* 
SYSERR-22* 
SYSERR-23* 
SYSERR-24* 
SYSERR-25* 
SYSERR-26" 
SYSERR-27* 
SYSERR-28* 
SYSERR-29* 
SYSERR-30* 
SYSERR-31* 
SYSIN* 
SYSIN-96* 
SYSIN-128* 
SYSLOG 
SYSLST * 
SYSSWCH* 
SYSSWCH-0* 
SYSSWCH-1* 
SYSSWCH-2* 
SYSSWCH-3* 
SYSSWCH-4* 
SYSSWCH-5* 
SYSSWCH-6 * 
SYSSWCH-7 * 
SYSTIME * 
TALLY 
TALLYING 
TAPE 

TAPE-6* 
TAPES * 
THAN 

THEN* 
THROUGH 
THRU 

TIME * 

TIMES 

TO 

TRACE * 
TRACKS * 
TRAILING* 
TRANSFORM* 
UNEQUAL" 
UNIT 
UNIVAC-9000* 
UNIVAC-9025* 
UN#VAC-9030* 
UNIVAC-9040" 
UNIVAC-9060* 
UNIVAC-9070"* 
UNIVAC-920011* 
UNIVAC-9300"* 
UNIVAC-93001!" 
UNIVAC-9400 * 
UNIVAC-9480* 
UNIVAC-9700 * 
UNTIL 

uP 

UPON 

USAGE 

USE 

USING 
VALUE 
VALUES 
VARYING 
VERIFY * 
WHEN 

WITH 

WORDS 
WORKING-STORAGE 
WRITE 

ZERO 
ZEROES 
ZEROS 


— 
*Extension to American National Standard COBOL (1968). 
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PARAM CARD OPTIONS 


PARAM CARD RESULT 


// PARAM LST#=A Activates ambiguity mode of reference resolution. The definition 
search process is not terminated when the reference has been 
resolved, but is continued in an attempt to find and report 
duplicate definitions. 













1/1 PARAM LST=C Produces cross-reference information for the Data Division and/or 
Procedure Division maps as specified. If the C option is used 
without the M and P options, both a Data Division and Procedure 
Division map listing will be produced with cross-reference 
information, 













1/ PARAM LST=D 





Produces Data Division alphabetized cross-reference listing. 


// PARAM LST#E Printer mismatch errors during compilation are ignored. 








// PARAM LST=I Suppress listing of lines from COPY library. 





// PARAM LST=K Suppresses source sequence number diagnostics. 


Hf PARAM LST=L Single-spaces ail requested listings. If no listings were requested, 


a single-spaced diagnostic listing is produced. 
























/{ PARAM LST=M Produces Data Division storage map listing. 





/1 PARAM LST=N Suppresses all output listings except the PARAM card listing. 





Hf PARAM LST=0 Produces object code listing. 


// PARAM LST=P Produces Procedure Division storage map listing. 








// PARAM LST=R Allows quotation mark symbo! in nonumeric literal bounded by 


apostrophes. 


// PARAM LST=S Produces source program listing. 








/f PARAM LST=T Allows apostrophe symbol in nonnumeric literal bounded by 


quotation marks. 





Hf PARAM LST=W Suppresses precautionary diagnostic listing. 





/f PARAM LST=X Produces Procedure Division alphabetized cross-reference listing. 








Hf PARAM OUT=A Produces ASCII sensitive object program. 


Conversion mode. 





/f PARAM OUT=C 








i PARAM OUT=E Inhibits dispiay of ISAM file status on console. 





All data items described as USAGE tS COMP or COMPUTATIONAL 
are treated as packed decimal (COMP-3 or COMPUTATIONAL-3). 


/{ PARAM OUT=K 












// PARAM OUTSL Suppresses generation of linker control information in the 


object module. 









/! PARAM OUT=M Produces shared-code COBOL action program to be executed under 


the control of information management system (IMS/90). 


/{ PARAM OUT=N Suppresses object program module generation 





// PARAM OUT=P Disregards mismatched errors for all object program print files. 











// PARAM OUT=R Quote as figurative constant is generated as quotation marks; 


by default, quote is apostrophe. 









// PARAM OUT=S Disable object program SORT PARAM card processing. 





/{ PARAM OUT=T Suppresses compiler generation of a transfer address for the 
object program. The program cannot be executed unless it is 


called. 





Suppresses automatic page overflow in the object program, 





// PARAM OUT=V 








1 PARAM IN= 
program-name/ 
filename 


Identifies the file containing source program input. 


ff PARAM LIN= 
filename 


Identifies the file containing the COPY library. 











/{/ PARAM VER=w/rr | Applies version and revision number to compiler output module. 









// PARAM OBJ= 
filename 


Identifies the file where the generated object mode is to be 
Placed. 






NOTE: 


In the absence of PARAM cards, the compiler will produce a source program listing, a 
diagnostic report, an object program, assume jobstream input, and produce a version 
number of 00/00 for the object program. 
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